#!/usr/bin/perl

my $pattern = shift;
while (<>) {
	if (/$pattern/i) {
		print;
	}
}
